home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / wildcat / allfl_20.zip / ALLFILES.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-01  |  20KB  |  1,109 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  20427 bytes  01/28/123  10:06:42pm
  3. '! Code Segment Size  :17137 bytes
  4. '! Data Segment Size  :10101 bytes
  5. '! String Segment Size:3290 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type33
  9.         Filler0(1 To 158) As Byte
  10.         w158 As Word
  11.       End Type
  12.  
  13.       Type Type32
  14.         d0 As Date
  15.         t2 As Time
  16.       End Type
  17.  
  18.       Type Type31
  19.         Filler0(1 To 34) As Byte
  20.         w34 As Word
  21.       End Type
  22.  
  23.       Type Type30
  24.         Filler0(1 To 20) As Byte
  25.         s20 As String*14
  26.         Filler34(1 To 118) As Byte
  27.         w152 As Word
  28.       End Type
  29.  
  30.       Type Type29
  31.         d0 As Date
  32.         t2 As Time
  33.       End Type
  34.  
  35.       Type Type28
  36.         s0 As String*3
  37.         s3 As String*8
  38.         s11 As String*30
  39.         s41 As String*25
  40.         s66(1 To 10) As String*80
  41.         l866 As Long
  42.       End Type
  43.  
  44.       Type Type27
  45.         s0 As String*5
  46.         s5 As String*12
  47.         s17 As String*67
  48.         b84 As Byte
  49.         l85 As Long
  50.         s89 As String*79
  51.         s168 As String*12
  52.         s180 As String*67
  53.         s247 As String*79
  54.         s326 As String*67
  55.         b393(1 To 4095) As Byte
  56.         l4488 As Long
  57.         b4492 As Byte
  58.         w4493 As Word
  59.       End Type
  60.  
  61.       Type Type26
  62.         s0 As String*25
  63.         s25 As String*10
  64.         s35 As String*15
  65.         s50 As String*70
  66.         s120 As String*70
  67.       End Type
  68.  
  69.       Declare Function Func1004(s65534 As String) As Long
  70. '!      Declare Function Func1116(s65534 As String) As Boolean
  71.       Declare Function Func1639(l65534 As Long, l65532 As Long) As Long
  72. '!      Declare Sub Sub1692(l65534 As Long, l65532 As Long)
  73.       Declare Function Func1792(i65534 As Integer) As Boolean
  74.       Declare Sub Sub1917(i65534 As Integer)
  75.       Declare Sub Sub2054(i65534 As Integer)
  76. '!      Declare Sub Sub2191(w65534 As Word)
  77.       Declare Sub Sub2293(s65534 As String)
  78.       Declare Sub Sub2370
  79.       Declare Sub Sub2444(s65534 As String)
  80. '!      Declare Sub Sub2540
  81.       Declare Sub Sub2565
  82.       Declare Sub Sub2585(b65534 As Byte, b65532 As Byte, s65530 As String)
  83.       Declare Sub Sub2624(b65534 As Byte, b65532 As Byte, b65530 As Byte, b65528 As Byte)
  84.       Declare Sub Sub3089(b65534 As Byte, b65532 As Byte, b65530 As Byte, b65528 As Byte, s65526 As String)
  85.       Declare Sub Sub3441(b65534 As Byte, b65532 As Byte, b65530 As Byte, s65528 As String, o65526 As Boolean)
  86.       Declare Sub Sub3868
  87.       Declare Function Func9234 As Boolean
  88.       Declare Function Func9475(fr65534 As FileRecord) As Boolean
  89.       Declare Function Func9997(fr65534 As FileRecord) As Boolean
  90.       Declare Function Func10232(s65534 As String) As String
  91.       Declare Sub Sub10377(s65534 As String)
  92.       Declare Sub Sub10474(s65534 As String, s65532 As String)
  93.       Declare Sub Sub10697
  94.       Declare Function Func11998(t32_65534 As Type32) As String
  95.       Declare Function Func12073(s65534 As String, i65532 As Integer, s65530 As String) As String
  96.       Declare Sub Sub12362(i65534 As Integer)
  97.       Declare Sub Sub16661
  98.  
  99.       Dim t26_4463 As Type26
  100.       Dim t28_4653 As Type28
  101.       Dim s5533 As String
  102.       Dim t27_5537 As Type27
  103.       Dim b10032(0 To 7) As Byte
  104.       Dim b10040(0 To 7) As Byte
  105.       Dim l10048 As Long
  106.       Dim l10052 As Long
  107.       Dim l10056 As Long
  108.       Dim r10060 As Real
  109.       Dim dt10066 As DateTime
  110.       Dim i10072 As Integer
  111.       Dim i10074 As Integer
  112.       Dim i10076 As Integer
  113.       Dim s10078 As String
  114.       Dim o10082 As Boolean
  115.       Dim s10083 As String
  116.       Dim s10087(-1 To 0) As String
  117.       Dim d10095 As Date
  118.       Dim l10097 As Long
  119.  
  120.       Dim l65528_ As Long '! Temporary
  121.       Dim s65532_ As String '! Temporary
  122.  
  123.       t26_4463.s0 = "proFILES"
  124.       t26_4463.s25 = "2.0"
  125.       t26_4463.s35 = "01/01/96"
  126.       t26_4463.s50 = "Copyright (C) 1996 Prasanth Pulavarthi. All Rights Reserved."
  127.       t26_4463.s120 = t26_4463.s0 + " " + t26_4463.s25 + " for Wildcat! 4.01+"
  128.       s5533 = ProgPath + "ALLFILES.DAT"
  129.       t27_5537.s0 = t26_4463.s25
  130.       b10032(0) = 1
  131.       b10032(1) = 2
  132.       b10032(2) = 4
  133.       b10032(3) = 8
  134.       b10032(4) = 16
  135.       b10032(5) = 32
  136.       b10032(6) = 64
  137.       b10032(7) = 128
  138.       b10040(0) = 254
  139.       b10040(1) = 253
  140.       b10040(2) = 251
  141.       b10040(3) = 247
  142.       b10040(4) = 239
  143.       b10040(5) = 223
  144.       b10040(6) = 191
  145.       b10040(7) = 127
  146.       l10048 = 0
  147.       l10052 = 0
  148.       l10056 = 0
  149.       i10074 = 0
  150.       s10078 = TempPath
  151.       s10087(- 1) = "Yes"
  152.       s10087(0) = "No"
  153.       If EventRunning Then
  154.         Send MakeWild.ModemProfile.OffHook + Chr(13)
  155.       End If
  156.   689 Sub3868
  157.       StatusClose 
  158.       Print DefColor
  159.       Cls 
  160.       MorePrompt(-1)
  161.       If EventRunning Then
  162.         Send MakeWild.ModemProfile.OnHook + Chr(13)
  163.       End If
  164.   750
  165.       Sub2444(("Terminated proFILES"))
  166.       If Func1639((t27_5537.l85), (32)) Then
  167.         Chain ProgPath + "ONDEMAND.WCX", ""
  168.       End If
  169.   844 End 
  170.       Catch 15
  171.         Del s10078 + t27_5537.s5
  172.         Sub2293(("Carrier Loss in proFILES"))
  173.         If (Func1639((t27_5537.l85), (32))) = 0 Then GoTo 973
  174.         Chain ProgPath + "ONDEMAND.WCX", ""
  175.   973   End 
  176.       GoTo 980
  177.   980
  178.  
  179. '! Called 2 times
  180.       Function Func1004(s65534 As String) As Long
  181.         Dim l65524 As Long
  182.         Dim i65528 As Integer
  183.  
  184.         l65524 = 0
  185.         i65528 = Len(s65534)
  186.  1033   Do While i65528 > 0
  187.           l65524 = l65524 + Asc(Mid(s65534, i65528, 1))
  188.           i65528 = i65528 - 1
  189.         Loop
  190.  1098   Func1004 = l65524
  191.       End Function
  192.  
  193. '! Called 0 times
  194. '!      Function Func1116(s65534 As String) As Boolean
  195. '!        Dim s65513 As String '! Temporary
  196. '!        Dim l65517 As Long
  197. '!        Dim s65519 As String '! Temporary
  198. '!        Dim i65521 As Integer
  199. '!        Dim s65523 As String
  200. '!        Dim i65527 As Integer
  201. '!        Dim l65529 As Long
  202.  
  203. '!        Func1116 = 0
  204. '!        If Exists(ProgPath + s65534 + ".LIC") Then
  205. '!          Open ProgPath + s65534 + ".LIC" For Random As 1 Len = 880 '! This value should probably be replaced with a "SizeOf" expression
  206. '!          Get 1, -1, t28_4653 '! 880 bytes
  207. '!          Close 1
  208. '!          If t28_4653.s0 <> "LIC" Then
  209. '!          Else
  210. '! 1236       If t28_4653.s3 <> s65534 Then
  211. '!            Else
  212. '! 1266         If UCase(t28_4653.s11) <> UCase(MakeWild.BBSName) Then
  213. '!              Else
  214. '! 1306           If UCase(t28_4653.s41) <> UCase(MakeWild.SysopName) Then
  215. '!                Else
  216. '! 1346
  217. '!                  l65529 = Func1004((t28_4653.s0 + t28_4653.s3 + t28_4653.s11 + t28_4653.s41))
  218. '! 1436             For i65527 = 1 To 10 Step 1
  219. '!                    s65523 = t28_4653.s66(i65527)
  220. '!                    l65529 = l65529 + Func1004((s65523))
  221. '!                  Next
  222. '! 1590             If l65529 <> t28_4653.l866 Then
  223. '!                  Else
  224. '! 1619               Func1116 = -1
  225. '!                  End If
  226. '!                End If
  227. '!              End If
  228. '!            End If
  229. '!          End If
  230. '!        End If
  231. '! 1627
  232. '!      End Function
  233.  
  234. '! Called 35 times
  235.       Function Func1639(l65534 As Long, l65532 As Long) As Long
  236.         Func1639 = 0
  237.         If l65534 And l65532 Then
  238.           Func1639 = -1
  239.         End If
  240.  1684
  241.       End Function
  242.  
  243. '! Called 0 times
  244. '!      Sub Sub1692(l65534 As Long, l65532 As Long)
  245. '!        Dim l65524 As Long '! Temporary
  246. '!        Dim l65528 As Long '! Temporary
  247.  
  248. '!        If Func1639((l65534), (l65532)) Then
  249. '!          FlagClear l65534, l65532
  250. '!        Else
  251. '! 1774     FlagSet l65534, l65532
  252. '!        End If
  253. '! 1789
  254. '!      End Sub
  255.  
  256. '! Called 3 times
  257.       Function Func1792(i65534 As Integer) As Boolean
  258.         If (t27_5537.b393(i65534 Div 8 + 1) And b10032(i65534 Mod 8)) <> 0 Then
  259.           Func1792 = -1
  260.         Else
  261.  1903     Func1792 = 0
  262.         End If
  263.  1909
  264.       End Function
  265.  
  266. '! Called 1 time
  267.       Sub Sub1917(i65534 As Integer)
  268.         t27_5537.b393(i65534 Div 8 + 1) = t27_5537.b393(i65534 Div 8 + 1) Or b10032(i65534 Mod 8)
  269.       End Sub
  270.  
  271. '! Called 1 time
  272.       Sub Sub2054(i65534 As Integer)
  273.         t27_5537.b393(i65534 Div 8 + 1) = t27_5537.b393(i65534 Div 8 + 1) And b10040(i65534 Mod 8)
  274.       End Sub
  275.  
  276. '! Called 0 times
  277. '!      Sub Sub2191(w65534 As Word)
  278. '!        Dim i65532 As Integer '! Temporary
  279.  
  280. '!        If Func1792((w65534)) Then
  281. '!          Sub2054((w65534))
  282. '!        Else
  283. '! 2264
  284. '!          Sub1917((w65534))
  285. '!        End If
  286. '! 2290
  287. '!      End Sub
  288.  
  289. '! Called 13 times
  290.       Sub Sub2293(s65534 As String)
  291.         Dim i65532 As Integer
  292.  
  293.         i65532 = FreeFile
  294.         Open ProgPath + "PROFILES.LOG" For Append As i65532
  295.         Print #i65532, "      * "; s65534
  296.         Close i65532
  297.       End Sub
  298.  
  299. '! Called 2 times
  300.       Sub Sub2370
  301.         Dim i65534 As Integer
  302.  
  303.         i65534 = FreeFile
  304.         Open ProgPath + "PROFILES.LOG" For Append As i65534
  305.         Print #i65534, String(79, "-")
  306.         Close i65534
  307.       End Sub
  308.  
  309. '! Called 4 times
  310.       Sub Sub2444(s65534 As String)
  311.         Dim t65528 As Time
  312.         Dim i65532 As Integer
  313.  
  314.         i65532 = FreeFile
  315.         CurrentTime t65528
  316.         Open ProgPath + "PROFILES.LOG" For Append As i65532
  317.         Print #i65532, FormatTime(t65528, "hh:mm"); " "; s65534
  318.         Close i65532
  319.       End Sub
  320.  
  321. '! Called 0 times
  322. '!      Sub Sub2540
  323. '!        ActivityLog ProgName + " ERROR - See PROFILES.LOG for info."
  324. '!      End Sub
  325.  
  326. '! Called 5 times
  327.       Sub Sub2565
  328.         Delay 0
  329.       End Sub
  330.  
  331. '! Called 51 times
  332.       Sub Sub2585(b65534 As Byte, b65532 As Byte, s65530 As String)
  333.         Locate b65534, b65532
  334.         Print s65530;
  335.       End Sub
  336.  
  337. '! Called 1 time
  338.       Sub Sub2624(b65534 As Byte, b65532 As Byte, b65530 As Byte, b65528 As Byte)
  339.         Dim s65518 As String '! Temporary
  340.         Dim l65522 As Long
  341.         Dim s65523 As String '! Temporary
  342.         Dim b65526 As Byte
  343.         Dim b65527 As Byte
  344.  
  345.         Sub2585(b65534, b65532, ("@0F@" + String(b65528 - 1, "▄") + "@08@▄@7F@"))
  346.         Inc b65534
  347.         Sub2585(b65534, b65532, ("@7F@█@78@ ┌" + String(b65528 - 6, "─") + "@7F@┐ @78@█@7F@"))
  348.         Inc b65534
  349.  2809   For b65527 = 1 To b65530 - 4 Step 1
  350.           Sub2585(b65534, b65532, ("@7F@█@78@ │@7F@" + String(b65528 - 6, " ") + "│ @78@█@7F@"))
  351.           Inc b65534
  352.         Next
  353.  2955
  354.         Sub2585(b65534, b65532, ("@7F@█@78@ └@7F@" + String(b65528 - 6, "─") + "┘ @78@█"))
  355.         Inc b65534
  356.         Sub2585(b65534, b65532, ("@0F@▀@08@" + String(b65528 - 1, "▀")))
  357.       End Sub
  358.  
  359. '! Called 8 times
  360.       Sub Sub3089(b65534 As Byte, b65532 As Byte, b65530 As Byte, b65528 As Byte, s65526 As String)
  361.         Dim s65516 As String '! Temporary
  362.         Dim l65520 As Long
  363.         Dim s65521 As String '! Temporary
  364.         Dim b65524 As Byte
  365.         Dim b65525 As Byte
  366.  
  367.         Sub2585(b65534, b65532, ("@78@┌─@71@" + s65526 + "@78@" + String(b65528 - 3 - AtLen(s65526), "─") + "@7F@┐"))
  368.         Inc b65534
  369.  3227   For b65525 = 1 To b65530 - 2 Step 1
  370.           Sub2585(b65534, b65532, ("@78@│" + String(b65528 - 2, " ") + "@7F@│"))
  371.           Inc b65534
  372.         Next
  373.  3373
  374.         Sub2585(b65534, b65532, ("@78@└@7F@" + String(b65528 - 2, "─") + "┘"))
  375.       End Sub
  376.  
  377. '! Called 2 times
  378.       Sub Sub3441(b65534 As Byte, b65532 As Byte, b65530 As Byte, s65528 As String, o65526 As Boolean)
  379.         Dim s65522 As String '! Temporary
  380.  
  381.         If o65526 Then
  382.           Sub2585(b65534, b65532, ("@7F@╔" + String(b65530 - 2, "═") + "@78@╗"))
  383.           Inc b65534
  384.           Sub2585(b65534, b65532, ("@7F@║" + s65528 + "@78@║"))
  385.           Inc b65534
  386.           Sub2585(b65534, b65532, ("@7F@╚@78@" + String(b65530 - 2, "═") + "╝"))
  387.         Else
  388.  3667
  389.           Sub2585(b65534, b65532, ("@7F@┌" + String(b65530 - 2, "─") + "@78@┐"))
  390.           Inc b65534
  391.           Sub2585(b65534, b65532, ("@7F@│" + s65528 + "@78@│"))
  392.           Inc b65534
  393.           Sub2585(b65534, b65532, ("@7F@└@78@" + String(b65530 - 2, "─") + "┘"))
  394.         End If
  395.  3865
  396.       End Sub
  397.  
  398. '! Called 1 time
  399.       Sub Sub3868
  400.         Dim l65500 As Long '! Temporary
  401.         Dim s65502 As String '! Temporary
  402.         Dim s65504 As String '! Temporary
  403.         Dim i65506 As Integer '! Temporary
  404.         Dim b65507 As Byte '! Temporary
  405.         Dim s65508 As String '! Temporary
  406.         Dim s65510 As String '! Temporary
  407.         Dim i65512 As Integer '! Temporary
  408.         Dim b65513 As Byte '! Temporary
  409.         Dim s65514 As String '! Temporary
  410.         Dim b65516 As Byte '! Temporary
  411.         Dim b65517 As Byte '! Temporary
  412.         Dim i65518 As Integer '! Temporary
  413.         Dim b65519 As Byte '! Temporary
  414.         Dim r65520 As Real
  415.         Dim i65526 As Integer
  416.         Dim i65528 As Integer
  417.         Dim i65530 As Integer
  418.         Dim s65532 As String
  419.  
  420.         Cls 
  421.         MorePrompt(0)
  422.         Print "@NOSTOP@@NOPAUSE@";
  423.         Sub2624((1), (1), (19), (80))
  424.         Sub3089((5), (5), (3), (44), (" FILE AREA "))
  425.         Sub3089((5), (50), (3), (16), (" FILE NAME "))
  426.         Sub3089((5), (67), (3), (10), (" FPM "))
  427.         Sub3089((8), (5), (6), (44), (" CONFIGURATION "))
  428.         Sub3089((8), (50), (6), (27), (" STATUS "))
  429.         Sub3089((14), (5), (3), (72), (""))
  430.         Sub2585((3), (5), ("@71@proFILES for Wildcat! 4.01+                                  Version 2.0"))
  431.         Sub2585((4), (5), ("@7F@────────────────────────────────────────────────────────────────────────"))
  432.         Sub2585((17), (11), ("@71@" + t26_4463.s50))
  433.         Sub10377(("@7E@Please wait while " + t26_4463.s0 + " reads configuration files..."))
  434.         Sub2585((9), (7), ("@71@Producing:"))
  435.         Sub2585((9), (52), ("@71@Areas Selected :"))
  436.         Sub2585((10), (52), ("@71@Areas Remaining:"))
  437.         Sub2585((10), (7), ("@71@List/Scan:"))
  438.         Sub2585((11), (52), ("@71@Files Scanned:"))
  439.         Sub2585((11), (7), ("@71@[ ] Free      [ ] CD    [ ] Offline "))
  440.         Sub2585((12), (7), ("@71@[ ] Regular   [ ] Bad   [ ] Password"))
  441.         Sub2585((12), (52), ("@71@Files Written:"))
  442.         Sub2565
  443.         If Func9234 Then
  444.           If Not Func1639((t27_5537.l85), (32)) Then
  445.             Sub2370
  446.           End If
  447.  5238
  448.           Sub2444(("Executed proFILES"))
  449.         Else
  450.  5271     Sub2370
  451.           Sub2444(("Executed proFILES"))
  452.           Sub2293((s5533 + " not found!! Run ALLFLCFG.WCX first!!"))
  453.           Sub10377(("@74@CONFIGURATION ERROR!  SysOp Notified."))
  454.           Delay 5
  455.           GoTo 9227
  456.         End If
  457.  5378   Sub16661
  458.         Sub2585((9), (18), ("@70@" + t27_5537.s5 + " @71@-@70@ " + t27_5537.s168))
  459.         If t27_5537.b84 = 5 Then
  460.           s65532 = "@70@File Name @71@-@70@ "
  461.         Else
  462.  5506     If t27_5537.b84 = 4 Then
  463.             s65532 = "@70@Extended @71@-@70@ "
  464.           Else
  465.  5540       If t27_5537.b84 = 3 Then
  466.               s65532 = "@70@Full Info @71@-@70@ "
  467.             Else
  468.  5574         If t27_5537.b84 = 1 Then
  469.                 s65532 = "@70@Single Line @71@-@70@ "
  470.               Else
  471.  5608           s65532 = "@70@Double Line @71@-@70@ "
  472.               End If
  473.             End If
  474.           End If
  475.         End If
  476.  5617   If t27_5537.b4492 = 1 Then
  477.           s65532 = s65532 + Str(t27_5537.w4493) + " Days Old"
  478.         Else
  479.  5673     If t27_5537.b4492 = 2 Then
  480.             dt10066.D.Number = t27_5537.w4493
  481.             s65532 = s65532 + "Since " + FormatDate(dt10066.D, MakeWild.DateFormat)
  482.           Else
  483.  5748       If t27_5537.b4492 = 3 Then
  484.               s65532 = s65532 + "Since Last"
  485.             Else
  486.  5789         s65532 = s65532 + "All"
  487.             End If
  488.           End If
  489.         End If
  490.  5804
  491.         Sub2585((10), (18), s65532)
  492.         If Func1639((t27_5537.l4488), (4)) Then
  493.           Sub2585((11), (8), ("@70@X"))
  494.         End If
  495.  5950
  496.         If Func1639((t27_5537.l4488), (16)) Then
  497.           Sub2585((11), (22), ("@70@X"))
  498.         End If
  499.  6057
  500.         If Func1639((t27_5537.l4488), (32)) Then
  501.           Sub2585((11), (32), ("@70@X"))
  502.         End If
  503.  6164
  504.         If Func1639((t27_5537.l4488), (512)) Then
  505.           Sub2585((12), (8), ("@70@X"))
  506.         End If
  507.  6272
  508.         If Func1639((t27_5537.l4488), (64)) Then
  509.           Sub2585((12), (22), ("@70@X"))
  510.         End If
  511.  6379
  512.         If Func1639((t27_5537.l4488), (256)) Then
  513.           Sub2585((12), (32), ("@70@X"))
  514.         End If
  515.  6487   If t27_5537.b4492 = 1 Then
  516.           CurrentDate d10095
  517.           IncDate d10095, - t27_5537.w4493, 0, 0
  518.         End If
  519.  6533
  520.  6562   For i65530 = 1 To MakeWild.MaxFileAreas Step 1
  521.           If Func1792((i65530)) Then
  522.             Inc i10076
  523.           End If
  524.  6648   Next
  525.  6671
  526.         Sub2585((9), (69), ("@70@" + Func10232((Str(i10076)))))
  527.         i10072 = FreeFile
  528.         Open s10078 + t27_5537.s5 For Output As i10072
  529.         If Exists(t27_5537.s247) And t27_5537.b84 <> 5 Then
  530.           i65528 = FreeFile
  531.           Open t27_5537.s247 For Input As i65528
  532.  6872     Do While Not EOF(i65528)
  533.             Input #i65528, s65532
  534.             Print #i10072, s65532
  535.           Loop
  536.  6916     Close i65528
  537.         End If
  538.  6924   If t27_5537.b84 <> 5 Then
  539.           CurrentDateTime dt10066
  540.           Print #i10072, String(78, "=")
  541.           Print #i10072, "List Of Files Available For Download From "; MakeWild.BBSName; "."
  542.           Print #i10072, "Last Updated On "; FormatDate(dt10066.D, MakeWild.DateFormat); " At "; Trim(FormatTime(dt10066.T, MakeWild.TimeFormat)); "."
  543.           Print #i10072, String(78, "=")
  544.           If t27_5537.b84 <> 3 Then
  545.             Print #i10072,
  546.             Print #i10072, "                              Abbreviation Index"
  547.             Print #i10072, "   [ | = NoFlag, B = Bad File, F = Free File, P = Passworded, O = Offline ]"
  548.           End If
  549.  7140     If t27_5537.b84 <> 1 And t27_5537.b84 <> 5 Then
  550.             Print #i10072,
  551.           End If
  552.         End If
  553.  7180
  554.         Sub10377(("@70@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░   0%"))
  555.         Sub2585((6), (70), ("@70@N/A"))
  556.         r10060 = Timer
  557.         Sub2585((10), (69), ("@70@" + Pad(Func10232((Str(i10076 - i10074))), 6)))
  558.  7402   For i65526 = 1 To MakeWild.MaxFileAreas Step 1
  559.           If Func1792((i65526)) Then
  560.             Sub12362(i65526)
  561.             Inc i10074
  562.             Sub2585((10), (69), ("@70@" + Pad(Func10232((Str(i10076 - i10074))), 6)))
  563.             r65520 = i10074 * 100 / i10076
  564.             Sub2585((15), (7), ("@7E@" + String(r65520 * 63 / 100, "█")))
  565.             Sub2585((15), (71), ("@70@" + LeftPad(Str(r65520), 3) + "%"))
  566.             Sub2565
  567.           End If
  568.  7794   Next
  569.  7817
  570.         Sub2293(("File Areas Available : " + Str(MakeWild.MaxFileAreas)))
  571.         Sub2293(("File Areas Selected  : " + Str(i10076)))
  572.         Sub2293(("File Areas Processed : " + Str(i10074)))
  573.         Sub2293(("Total Files On System: " + Str(MasterInfo.TotalFiles)))
  574.         Sub2293(("Total Files Scanned  : " + Str(l10048)))
  575.         Sub2293(("Total Files Written  : " + Str(l10052)))
  576.         Sub2293(("Files Per Minute Done: " + Str(l10056 * 60)))
  577.         If t27_5537.b84 = 1 Then
  578.           Print #i10072,
  579.         End If
  580.  8114   If t27_5537.b84 <> 5 Then
  581.           Print #i10072, String(78, "=")
  582.           Print #i10072, "This list generated by "; t26_4463.s120; "."
  583.           Print #i10072, t26_4463.s50
  584.           If o10082 Then
  585.             Print #i10072,
  586.             Print #i10072, "Please ask your SysOp to register "; t26_4463.s120; "!"
  587.           End If
  588.  8250     Print #i10072, String(78, "=")
  589.         End If
  590.  8268   Close i10072
  591.         CopyFile(s10078 + t27_5537.s5, t27_5537.s17 + t27_5537.s5)
  592.         If s10078 <> t27_5537.s17 Then
  593.           Del s10078 + t27_5537.s5
  594.         End If
  595.  8359   If t27_5537.s89 <> "" And t27_5537.s180 <> "" And t27_5537.s168 <> "" Then
  596.           Sub10377(("@7E@Please wait while " + t27_5537.s5 + " is compressed into " + t27_5537.s168 + "..."))
  597.           If InStr(t27_5537.s89, "!") = 0 Then
  598.             Shell t27_5537.s89 + " " + t27_5537.s180 + t27_5537.s168 + " " + t27_5537.s17 + t27_5537.s5, ""
  599.           Else
  600.  8598       s65532 = t27_5537.s89 + " " + t27_5537.s17 + t27_5537.s5
  601.  8643       Do While InStr(s65532, "!") <> 0
  602.               s65532 = Left(s65532, InStr(s65532, "!") - 1) + t27_5537.s180 + t27_5537.s168 + Right(s65532, Len(s65532) - InStr(s65532, "!") - 6)
  603.             Loop
  604.  8755       Shell s65532, ""
  605.           End If
  606.  8767
  607.           If Not Func1639((t27_5537.l85), (32)) Then
  608.             Sub10474((t27_5537.s168), (t27_5537.s180))
  609.           End If
  610.         End If
  611.  8876
  612.         If Func1639((t27_5537.l85), (16)) Then
  613.           Del t27_5537.s17 + t27_5537.s5
  614.           Sub2293(("Erased " + t27_5537.s5 + " after compressing into " + t27_5537.s168 + "."))
  615.         Else
  616.  9021
  617.           If Not Func1639((t27_5537.l85), (32)) Then
  618.             Sub10474((t27_5537.s5), (t27_5537.s17))
  619.           End If
  620.         End If
  621.  9130   If t27_5537.b4492 = 3 Then
  622.           CurrentDateTime dt10066
  623.           t27_5537.w4493 = dt10066.D.Number
  624.           i65528 = FreeFile
  625.           Open s5533 For Random As i65528 Len = 4495 '! This value should probably be replaced with a "SizeOf" expression
  626.           Put i65528, -1, t27_5537 '! 4495 bytes
  627.           Close i65528
  628.         End If
  629.  9227
  630.       End Sub
  631.  
  632. '! Called 1 time
  633.       Function Func9234 As Boolean
  634.         Dim i65533 As Integer
  635.  
  636.         Func9234 = 0
  637.         If ParamCount > 0 Then
  638.           s5533 = ParamStr(1)
  639.         Else
  640.  9276     If Not EventRunning And Exists(s10078 + Trim(Str(User.UserId)) + ".PRO") Then
  641.             s5533 = TempPath + Trim(Str(User.UserId)) + ".PRO"
  642.           End If
  643.         End If
  644.  9351   If Exists(s5533) Then
  645.           i65533 = FreeFile
  646.           Open s5533 For Random As i65533 Len = 4495 '! This value should probably be replaced with a "SizeOf" expression
  647.           Get i65533, -1, t27_5537 '! 4495 bytes
  648.           Close i65533
  649.           If t27_5537.s326 <> "" Then
  650.             s10078 = t27_5537.s326
  651.           End If
  652.  9459     Func9234 = -1
  653.         End If
  654.  9467
  655.       End Function
  656.  
  657. '! Called 1 time
  658.       Function Func9475(fr65534 As FileRecord) As Boolean
  659.         Dim l65525 As Long '! Temporary
  660.         Dim l65529 As Long '! Temporary
  661.  
  662.         Func9475 = 0
  663.         If Func1639((t27_5537.l4488), (512)) And Func1639((t27_5537.l4488), (256)) Or Func1639((fr65534.Flags), (64)) And Func1639((t27_5537.l4488), (64)) Or Func1639((fr65534.Flags), (32)) And Func1639((t27_5537.l4488), (32)) Or Func1639((fr65534.Flags), (16)) And Func1639((t27_5537.l4488), (16)) Or Func1639((fr65534.Flags), (4)) And fr65534.Password <> "" Or Func1639((t27_5537.l4488), (4)) Then
  664.           Func9475 = -1
  665.         End If
  666.  9989
  667.       End Function
  668.  
  669. '! Called 1 time
  670.       Function Func9997(fr65534 As FileRecord) As Boolean
  671.         Dim b65532 As Byte
  672.  
  673.         Func9997 = 0
  674.         b65532 = t27_5537.b4492
  675.         If b65532 = 0 Then
  676.           Func9997 = -1
  677.         Else
  678. 10055     If b65532 = 1 Then
  679.             If fr65534.FileTime.D.Number >= d10095.Number Then
  680.               Func9997 = -1
  681.             End If
  682. 10102     Else
  683. 10108       If b65532 = 2 Then
  684.               If fr65534.FileTime.D.Number >= t27_5537.w4493 Then
  685.                 Func9997 = -1
  686.               End If
  687. 10160       Else
  688. 10166         If b65532 = 3 Then
  689.                 If fr65534.FileTime.D.Number >= t27_5537.w4493 Then
  690.                   Func9997 = -1
  691.                 End If
  692. 10218           GoTo 10224
  693.               End If
  694.             End If
  695.           End If
  696.         End If
  697. 10224
  698.       End Function
  699.  
  700. '! Called 14 times
  701.       Function Func10232(s65534 As String) As String
  702.         Dim i65528 As Integer
  703.  
  704.         i65528 = Len(s65534) - 2
  705. 10259   Do While i65528 > 1
  706.           s65534 = Left(s65534, i65528 - 1) + "," + Right(s65534, Len(s65534) - i65528 + 1)
  707.           i65528 = i65528 - 3
  708.         Loop
  709. 10356   Func10232 = s65534
  710.       End Function
  711.  
  712. '! Called 7 times
  713.       Sub Sub10377(s65534 As String)
  714.         Dim s65528 As String '! Temporary
  715.         Dim b65532 As Byte '! Temporary
  716.         Dim b65533 As Byte '! Temporary
  717.  
  718.         Sub2585((15), (7), (Pad(s65534, 69 + Len(s65534) - AtLen(s65534))))
  719.       End Sub
  720.  
  721. '! Called 2 times
  722.       Sub Sub10474(s65534 As String, s65532 As String)
  723.         Dim s64042 As String '! Temporary
  724.         Dim i64046 As Integer
  725.         Dim fr64048 As FileRecord
  726.  
  727.         i64046 = FreeFile
  728.         If GetFileInfo(fr64048, s65534) Then
  729.           Open s65532 + s65534 For Input As i64046
  730.           fr64048.Size = LOF(i64046)
  731.           Close i64046
  732.           CurrentDateTime fr64048.FileTime
  733.           fr64048.Uploader = t26_4463.s0 + " " + t26_4463.s25
  734.           UpdateFile(fr64048)
  735.           Sub2293((s65534 + " generated and database updated."))
  736.         Else
  737. 10659
  738.           Sub2293((s65534 + " was not found in the database! Database not updated!"))
  739.         End If
  740. 10694
  741.       End Sub
  742.  
  743. '! Called 1 time
  744.       Sub Sub10697
  745.         Dim s65513 As String '! Temporary
  746.         Dim s65514 As String '! Temporary
  747.         Dim s65515 As String '! Temporary
  748.         Dim b65517 As Byte '! Temporary
  749.         Dim b65518 As Byte '! Temporary
  750.         Dim b65519 As Byte '! Temporary
  751.         Dim b65520 As Byte '! Temporary
  752.         Dim r65521 As Real
  753.         Dim s65527 As String
  754.         Dim o65531 As Boolean
  755.         Dim s65532 As String
  756.  
  757.         Sub2565
  758.         If InKey(1213417543) = Chr(27) Then
  759.           o65531 = 0
  760.           Sub3089((14), (5), (3), (35), (""))
  761.           Sub2585((15), (7), ("@7E@Abort creation of " + t27_5537.s5 + "?"))
  762.           Sub2585((14), (40), (String(77 - 40, " ")))
  763.           Sub2585((15), (40), (String(77 - 40, " ")))
  764.           Sub2585((16), (40), (String(77 - 40, " ")))
  765.           Do
  766. 11100
  767.             Sub3441((14), (41), (9), ("  Y@71@ES  "), o65531)
  768.             Sub3441((14), (51), (10), ("   N@71@O   "), (Not o65531))
  769.             Do
  770. 11267         s65532 = UCase(InKey(1213417543))
  771.             Loop Until InStr("YN" + Chr(9) + Chr(13) + Chr(27), s65532) > 0
  772.             s65527 = s65532
  773.             If s65527 = "Y" Then
  774.               o65531 = -1
  775.               GoTo 11491
  776.             Else
  777. 11369         If s65527 = "N" Then GoTo 11403
  778.               If s65527 = Chr(27) Then
  779. 11403           o65531 = 0
  780.                 GoTo 11491
  781.               Else
  782. 11421           If s65527 = Chr(9) Then
  783.                   o65531 = Not o65531
  784.                 Else
  785. 11456             If s65527 = Chr(13) Then
  786.                     GoTo 11491
  787.                     GoTo 11485
  788.                   End If
  789.                 End If
  790.               End If
  791.             End If
  792. 11485     Loop
  793. 11491     If o65531 Then
  794.             Del s10078 + t27_5537.s5
  795.             StatusClose 
  796.             Print DefColor
  797.             Cls 
  798.             MorePrompt(-1)
  799.             If EventRunning Then
  800.               Send MakeWild.ModemProfile.OnHook + Chr(13)
  801.             End If
  802. 11576
  803.             Sub2444(("Aborted proFILES"))
  804.             If Func1639((t27_5537.l85), (32)) Then
  805.               Chain ProgPath + "ONDEMAND.WCX", ""
  806.             End If
  807. 11670       End 
  808.           Else
  809. 11677
  810.             Sub3089((14), (5), (3), (72), (""))
  811.             Sub10377(("@70@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░   0%"))
  812.             r65521 = i10074 * 100 / i10076
  813.             Sub2585((15), (7), ("@7E@" + String(r65521 * 63 / 100, "█")))
  814.             Sub2585((15), (71), ("@70@" + LeftPad(Str(r65521) + "%", 4)))
  815.           End If
  816.         End If
  817. 11981   Sub2565
  818.       End Sub
  819.  
  820. '! Called 2 times
  821.       Function Func11998(t32_65534 As Type32) As String
  822.         Func11998 = FormatDate(t32_65534.d0, MakeWild.DateFormat) + " " + FormatTime(t32_65534.t2, MakeWild.TimeFormat)
  823.       End Function
  824.  
  825. '! Called 4 times
  826.       Function Func12073(s65534 As String, i65532 As Integer, s65530 As String) As String
  827.         Dim l65518 As Long
  828.         Dim i65522 As Integer
  829.         Dim i65524 As Integer
  830.  
  831.         Trim(s65534)
  832.         Func12073 = s65534
  833.         s65530 = ""
  834.         If Len(s65534) <= i65532 Then
  835.         Else
  836. 12143
  837. 12171     For i65524 = i65532 To 1 Step - 1
  838.             If InStr(" ,.-/()[]:;<>|+=`~!@#^&" + Chr(9), Mid(s65534, i65524, 1)) Then
  839.               GoTo 12287
  840.             End If
  841. 12264     Next
  842. 12287     Func12073 = RTrim(Left(s65534, i65524))
  843.           s65530 = LTrim(Mid(s65534, i65524 + 1, Len(s65534))) + " "
  844.         End If
  845. 12351
  846.       End Function
  847.  
  848. '! Called 1 time
  849.       Sub Sub12362(i65534 As Integer)
  850.         Dim i63890 As Integer '! Temporary
  851.         Dim s63892 As String '! Temporary
  852.         Dim b63894 As Byte '! Temporary
  853.         Dim b63895 As Byte '! Temporary
  854.         Dim i63896 As Integer '! Temporary
  855.         Dim s63898 As String '! Temporary
  856.         Dim i63900 As Integer '! Temporary
  857.         Dim l63902 As Long
  858.         Dim s63904 As String '! Temporary
  859.         Dim i63906 As Integer
  860.         Dim l63908 As Long
  861.         Dim i63912 As Integer
  862.         Dim l63914 As Long
  863.         Dim i63918 As Integer '! Temporary
  864.         Dim s63920 As String '! Temporary
  865.         Dim l63922 As Long '! Temporary
  866.         Dim i63924 As Integer '! Temporary
  867.         Dim b63925 As Byte '! Temporary
  868.         Dim b63926 As Byte
  869.         Dim r63927 As Real
  870.         Dim i63933 As Integer
  871.         Dim i63935 As Integer
  872.         Dim s63937 As String
  873.         Dim s63941 As String
  874.         Dim s63945 As String
  875.         Dim s63949 As String
  876.         Dim fr63953 As FileRecord
  877.         Dim far65437 As FileAreaRecord
  878.  
  879.         i63933 = FreeFile
  880.         fr63953.Area = i65534
  881.         s63949 = Str(i65534)
  882.         GetFileArea(far65437, fr63953.Area)
  883.         Sub2585((6), (7), ("@70@" + Pad("#" + Func10232(s63949) + " - " + far65437.Name, 40)))
  884.         If GetNextFile(fr63953, 1) Then
  885.           If fr63953.Area <> i65534 Then
  886.           Else
  887. 12564       If t27_5537.b84 <> 3 And t27_5537.b84 <> 5 Then
  888.               If t27_5537.b84 = 1 Then
  889.                 Print #i10072,
  890.               End If
  891. 12623         If Exists(ProgPath + s63949 + ".HDR") Then
  892.                 s63945 = ProgPath + s63949 + ".HDR"
  893.               Else
  894. 12674           If Exists(ProgPath + "FILEAREA.HDR") Then
  895.                   s63945 = ProgPath + "FILEAREA.HDR"
  896.                 Else
  897. 12713             s63945 = ""
  898.                 End If
  899.               End If
  900. 12722         If s63945 <> "" Then
  901.                 Open s63945 For Input As i63933
  902. 12761           Do While Not EOF(i63933)
  903.                   Input #i63933, s63941
  904. 12787             Do While InStr(s63941, "@FANUM@") <> 0
  905.                     s63941 = Left(s63941, InStr(s63941, "@FANUM@") - 1) + s10083 + s63949 + Right(s63941, Len(s63941) - InStr(s63941, "@FANUM@") - 6)
  906.                   Loop
  907. 12887             Do While InStr(s63941, "@FANAME@") <> 0
  908.                     s63941 = Left(s63941, InStr(s63941, "@FANAME@") - 1) + far65437.Name + Right(s63941, Len(s63941) - InStr(s63941, "@FANAME@") - 7)
  909.                   Loop
  910. 12983             Print #i10072, s63941
  911.                 Loop
  912. 13001           Close i63933
  913.               Else
  914. 13015           Print #i10072, String(79, "=")
  915.                 Print #i10072, "File Area "; s10083; Func10232(s63949); " - "; far65437.Name
  916.                 Print #i10072, String(79, "=")
  917.               End If
  918.             End If
  919.             Do
  920. 13096         If fr63953.Area <> i65534 Then
  921.                 GoTo 16642
  922.               End If
  923. 13126         Inc l10048
  924.               Sub2585((6), (52), ("@70@" + Pad(fr63953.Name, 12)))
  925.               If Not Func1639((t27_5537.l85), (4)) And Func1639((fr63953.Flags), (16)) Then
  926.                 If Exists(far65437.Path + fr63953.Name) Then
  927.                   If Func1639((fr63953.Flags), (32)) Then
  928.                     FlagClear fr63953.Flags, 32
  929.                     UpdateFile(fr63953)
  930.                   End If
  931. 13401           Else
  932. 13407
  933.                   If Not Func1639((fr63953.Flags), (32)) Then
  934.                     FlagSet fr63953.Flags, 32
  935.                     UpdateFile(fr63953)
  936.                   End If
  937.                 End If
  938.               End If
  939. 13477         If Func9475(fr63953) And Func9997(fr63953) Then
  940.                 If t27_5537.b84 = 5 Then
  941.                   Print #i10072, fr63953.Name
  942.                 Else
  943. 13546             If t27_5537.b84 = 3 Then
  944.                     Print #i10072, "Name: "; Pad(fr63953.Name, 20); " File Date    : "; Pad(Func11998(fr63953.FileTime.D.Number), 18); " Dwnlds : ";
  945.                     Print #i10072, Func10232((Str(fr63953.Downloads)))
  946.                     Print #i10072, "Size: ";
  947.                     Print #i10072, Pad(Func10232((Str(fr63953.Size))), 20); " Last Accessed: "; Pad(Func11998(fr63953.LastAccess.D.Number), 18); " Cost   : ";
  948.                     Print #i10072, Func10232((Str(fr63953.Cost)))
  949.                     Print #i10072, "From: "; Pad(Left(fr63953.Uploader, 20), 20); " Free Flag    : ";
  950.                     Print #i10072, Pad(s10087(Func1639((fr63953.Flags), (4))), 18); " Offline: ";
  951.                     Print #i10072, s10087(Func1639((fr63953.Flags), (32)))
  952.                     Print #i10072, "Area: "; s10083; s63949; " - "; Pad(far65437.Name, 30)
  953.                     Print #i10072, "Keys: ";
  954.                     If fr63953.Keywords(1) <> "" Then
  955.                       Print #i10072, fr63953.Keywords(1);
  956. 14163                 For i63935 = 2 To 6 Step 1
  957.                         If fr63953.Keywords(i63935) = "" Then
  958.                           GoTo 14348
  959.                         End If
  960. 14271                   Print #i10072, ", "; fr63953.Keywords(i63935);
  961.                       Next
  962.                     End If
  963. 14348               Print #i10072,
  964.                     Print #i10072, "Desc: "; Left(fr63953.Description, 70)
  965.                     b63926 = 0
  966. 14413               For i63935 = 15 To 1 Step - 1
  967.                       If fr63953.LongDesc(i63935) <> "" Then
  968.                         b63926 = i63935
  969.                         GoTo 14555
  970.                       End If
  971. 14532               Next
  972. 14555               If b63926 > 0 Then
  973.                       Print #i10072, "---------------------------[ Detailed Description ]---------------------------"
  974. 14606                 For i63935 = 1 To b63926 Step 1
  975.                         Print #i10072, fr63953.LongDesc(i63935)
  976.                       Next
  977.                     End If
  978. 14727               Print #i10072,
  979.                     If l10048 <> MasterInfo.TotalFiles Then
  980.                       Print #i10072, String(79, "=")
  981.                       Print #i10072,
  982.                     End If
  983. 14779             Else
  984. 14785               Print #i10072, Pad(fr63953.Name, 13);
  985.                     If t27_5537.b84 = 1 Then
  986.                       Print #i10072, LeftPad(Func10232((Str(fr63953.Size / 1024))) + "k", 6);
  987.                     Else
  988. 14896                 If t27_5537.b84 = 4 Then
  989.                         Print #i10072, LeftPad(Func10232((Str(fr63953.Size / 1024))) + "k", 6); " ";
  990.                         Print #i10072, LeftPad(FormatDate(fr63953.FileTime.D, MakeWild.DateFormat), Len(MakeWild.DateFormat));
  991.                       Else
  992. 15037
  993.                         Print #i10072, LeftPad(Func10232((Str(fr63953.Size))), 12);
  994.                       End If
  995.                     End If
  996. 15084
  997.                     If Func1639((fr63953.Flags), (4)) Then
  998.                       s63941 = " F "
  999.                     Else
  1000. 15148
  1001.                       If Func1639((fr63953.Flags), (32)) Then
  1002.                         s63941 = " O "
  1003.                       Else
  1004. 15212
  1005.                         If Func1639((fr63953.Flags), (64)) Then
  1006.                           s63941 = " B "
  1007.                         Else
  1008. 15276                     If fr63953.Password <> "" Then
  1009.                             s63941 = " P "
  1010.                           Else
  1011. 15314                       s63941 = " | "
  1012.                           End If
  1013.                         End If
  1014.                       End If
  1015.                     End If
  1016. 15323               If t27_5537.b84 = 1 Then
  1017.                       Print #i10072, s63941; Left(fr63953.Description, 78 - 13 - 6 - 3)
  1018.                     Else
  1019. 15389                 If t27_5537.b84 = 4 Then
  1020.                         b63926 = 0
  1021. 15437                   For i63935 = 15 To 1 Step - 1
  1022.                           If fr63953.LongDesc(i63935) <> "" Then
  1023.                             b63926 = i63935
  1024.                             GoTo 15579
  1025.                           End If
  1026. 15556                   Next
  1027. 15579                   If b63926 > 0 Then
  1028.                           Print #i10072, s63941;
  1029.                           Print #i10072, Func12073((fr63953.LongDesc(1)), (48), s63937)
  1030. 15708                     For i63935 = 2 To b63926 Step 1
  1031.                             Print #i10072, String(13 + 6 + Len(MakeWild.DateFormat) + 1, " "); " | ";
  1032.                             Print #i10072, Func12073((s63937 + fr63953.LongDesc(i63935)), (48), s63937)
  1033.                           Next
  1034. 15924                   Else
  1035. 15930                     Print #i10072, s63941;
  1036.                           Print #i10072, Func12073((fr63953.Description), (48), s63937)
  1037.                           If s63937 <> "" Then
  1038.                             Print #i10072, String(13 + 6 + Len(MakeWild.DateFormat) + 1, " ");
  1039.                             Print #i10072, " | "; s63937
  1040.                           End If
  1041.                         End If
  1042. 16072                   Print #i10072,
  1043.                       Else
  1044. 16084                   If t27_5537.b84 = 2 Then
  1045.                           Print #i10072, s63941;
  1046.                           Print #i10072, Func12073((fr63953.Description), (50), s63937)
  1047.                           Print #i10072, "Dwnlds: ";
  1048.                           Print #i10072, Pad(Func10232((Str(fr63953.Downloads))), 5);
  1049.                           Print #i10072, Pad(LeftPad(FormatDate(fr63953.FileTime.D, MakeWild.DateFormat), 12), 13);
  1050.                           Print #i10072, "| "; s63937
  1051.                           Print #i10072,
  1052.                         End If
  1053.                       End If
  1054.                     End If
  1055.                   End If
  1056.                 End If
  1057. 16285           Inc l10052
  1058.               End If
  1059. 16291         Sub10697
  1060.               If l10048 Mod 10 = 0 Then
  1061.                 r63927 = Timer - r10060
  1062.                 l10056 = l10048 - l10097 / r63927
  1063.                 Sub2585((6), (70), ("@70@" + Pad(Str(l10056 * 60), 3)))
  1064.                 r10060 = Timer
  1065.                 l10097 = l10048
  1066.               End If
  1067. 16450
  1068.               Sub2585((11), (67), ("@70@" + Func10232((Str(l10048)))))
  1069.               Sub2585((12), (67), ("@70@" + Func10232((Str(l10052)))))
  1070.             Loop While GetNextFile(fr63953, 1)
  1071.           End If
  1072.         End If
  1073. 16642
  1074.       End Sub
  1075.  
  1076. '! Called 1 time
  1077.       Sub Sub16661
  1078.         Dim s65522 As String '! Temporary
  1079.         Dim l65523 As Long '! Temporary
  1080.         Dim l65526 As Long
  1081.         Dim l65527 As Long '! Temporary
  1082.         Dim b65530 As Byte
  1083.         Dim b65531 As Byte
  1084.         Dim s65532 As String
  1085.  
  1086.         StatusOpen 1
  1087.         StatusClear 23
  1088.         If Func1639((t27_5537.l85), (32)) Then
  1089.           s65532 = "OnDemand Mode - "
  1090.         End If
  1091. 16738
  1092.         If Func1639((t27_5537.l85), (64)) Then
  1093.           o10082 = 0
  1094.           Sub10377(("@7F@Thank you for registering " + t26_4463.s0 + "!"))
  1095.           StatusWrite s65532 + "Registered Copy - Compiled on " + t26_4463.s35, 1, 2, 26
  1096.         Else
  1097. 16873     o10082 = -1
  1098.           s10083 = "*UNREGISTERED* "
  1099.           Sub10377(("@7F@Thank you for trying " + t26_4463.s0 + "!  10 Second SHAREWARE Delay"))
  1100. 16955     For b65531 = 10 To 1 Step - 1
  1101.             StatusWrite LeftPad(Str(b65531), 2) + " Second Remaining...  Please register proFILES.", 1, 2, 31
  1102.             Delay 1
  1103.           Next
  1104. 17065     StatusWrite s65532 + "Unregistered ShareWare Evaluation Copy - Compiled on " + t26_4463.s35, 1, 2, 27
  1105.           Sub2293(("*UNREGISTERED* Evaluation Copy!! Please Register!"))
  1106.         End If
  1107. 17124   Sub2565
  1108.       End Sub
  1109.